% V20210224 - 10.3 GW_ID$ INCLUDE "GW.bas" cpp = GW_NEW_PAGE() colpik = GW_ADD_COLORPICKER (cpp, "Colorpicker control:", "FF00FF") GW_RENDER (cpp) DO r$ = GW_WAIT_ACTION$() IF IS_IN (GW_ID$(colpik), r$) = 1 THEN % color picker change ncol$ = MID$ (r$, IS_IN(":", r$)+1) % extract '#rrggbb' out of % 'CtlId:#rrggbb' POPUP "Changed color to " + ncol$ ENDIF UNTIL r$ = "BACK"